#实现一个函数，输入参数n，如果n能被5整除则返回“YES”，否则返回“NO"
functionmod <- function(x){
  if (x %% 5==0){
      return ("YES")
  }
    else
        {
        return ("NO")
    }
}
functionmod(4)
functionmod(5)
